home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / Health / overWeight? / card_3251.txt < prev    next >
Encoding:
Text File  |  1988-04-19  |  2.3 KB  |  108 lines
  1. -- card: 3251 from stack: in
  2. -- bmap block id: 3000
  3. -- flags: 0000
  4. -- background id: 2690
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=171 top=80 right=101 bottom=215
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: weight
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=189 top=111 right=131 bottom=215
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: heightFT
  34.  
  35.  
  36. -- part 4 (field)
  37. -- low flags: 00
  38. -- high flags: 0002
  39. -- rect: left=256 top=111 right=131 bottom=288
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: heightIN
  48.  
  49.  
  50. -- part 5 (field)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=221 top=175 right=196 bottom=305
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 1280
  60. -- line height: 16
  61. -- part name: index
  62.  
  63.  
  64. -- part 6 (button)
  65. -- low flags: 00
  66. -- high flags: A003
  67. -- rect: left=301 top=237 right=258 bottom=375
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: calculate
  76. ----- HyperTalk script -----
  77.  
  78. -- Coconut Info ¬Æ
  79. -- P.O. Box 75453
  80. -- Honolulu, HI 96836
  81. -- (808) 262-6159
  82. --HyperCard allows 'quick' programming on the Mac for simple, yet
  83. --wonderful applications.  Use it often!
  84. --For all the people who love to eat as much as I do.......
  85. --bodyMass = (weight in pounds/1 kilo)/(height in inches * 2.54/100)^2
  86. on mouseUp
  87.   put card field "weight"/2.2046 into wt
  88.   put (((card field "heightFT" *12 + card field "heightIN")*2.54)/100) ^2 into htsq
  89.   put wt/htsq into card field "index"
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part contents for card part 3
  95. ----- text -----
  96. 5
  97.  
  98. -- part contents for card part 4
  99. ----- text -----
  100. 6
  101.  
  102. -- part contents for card part 1
  103. ----- text -----
  104. 180
  105.  
  106. -- part contents for card part 5
  107. ----- text -----
  108. 29.05276